home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
forgetpw.zip
/
FORGETPW.PPS
< prev
Wrap
Text File
|
1993-04-09
|
4KB
|
114 lines
string Answer,Serial,Phone,Address,City,Password
print "@CLS@"
println "@X5FIS @X0A Current User ID: @X0B@USER@"
println "@X5FTHIS @X0A City/State : @X0B@CITY@"
println "@X5FYOU? @X0A Last Time On : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
println
Answer = ""
inputyn "Does the above information belong to you",Answer,0Eh
if (Answer <> YesChar()) goto notyou
println "@CLS@@X0FIf you are a registered user on this system@X07 and simply forgot your password"
println "then we can help you out, by changing your password for you, if you wil first"
println "verify the following information for us:"
println
println "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
println "@X38│@X3E a) Your PCBoard @X3Fserial number@X3E @X3B│@X07"
println "@X38│@X3E b) Your voice @X3Fphone number@X3E @X3B│@X07"
println "@X38│@X3E c) Your @X3Faddress@X3E @X3B│@X07"
println "@X38│@X3E d) The @X3Fnew password@X3E you would like to use on this system @X3B│@X07"
println "@X38│ @X3B│@X07"
println "@X38│@X31We need @XBFALL FOUR@X31 pieces of information in order to change your password!!@X3B│@X07"
println "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
println
Answer = ""
inputyn "Would you like to confirm the above information",Answer,0Eh
if (Answer <> YesChar()) goto noconfirm
adjtime 5
Serial = ""
Phone = ""
Address = ""
Password = ""
:askquestions
println
println
inputtext "What is your PCBoard Serial Number",Serial,0Eh,6
println
println
inputtext "What is your voice phone number",Phone,0Eh,20
println
println
inputtext "What is your street address",Address,0Eh,40
println
println
inputtext "City, state & zip (or province/county)",City,0Eh,40
println
println
inputtext "What would you like your NEW PASSWORD to be",Password,0Eh,12
println
println
Answer = ""
inputyn "Is all of the above information correct",Answer,0Eh
println
if (Answer <> YesChar()) goto askquestions
println "@CLS@@X03"
println "Your answers will be placed into a COMMENT where the Sysop can read them"
println "and process your request. This is usually done within the hour, except"
println "nights, weekends and holidays."
println
println "@X0ESorry, but we do not return calls on forgotten passwords.@X03 If you would like"
println "to speak to someone you may call us at @X0C801-261-1686 @X03during business hours."
println
println "@X0FYou will now be placed into the message editor where you may provide any"
println "other comments and/or edit the answers you have given."
println
more
kbdstuff "Y"+chr(13)
kbdstuff "Serial Number: "+Serial+chr(13)
kbdstuff "Voice Number : "+Phone+chr(13)
kbdstuff "Address : "+Address+chr(13)
kbdstuff "City : "+City+chr(13)
kbdstuff "New Password : "+Password+chr(13)+chr(13)
end
:notyou
println
println "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
println "different user-id, perhaps adding a middle initial to make your logon-id unique"
println "for this system."
:explain
println "@X0A"
println "Here's an example of how to log on with a middle initial:"
println
println " @X0EEnter your first name? @X07JOHN Q. PUBLIC"
println
println "@X0AOr any other variation on your user-id may work."
println
println "@X03If you would like to speak to someone you may call us at @X0E801-261-1686 @X03during"
println "regular business hours."
println
wait
println
println "Please hang up now and try logging in again."
println
kbdstuff "N"+chr(13)
goodbye
:noconfirm
println "@CLS@@X0E"
println "If you have realized that you were signing onto an account that wasn't yours"
println "you may call back and attempt to use a different user-id, perhaps adding a"
println "middle initial to make your logon-id unique for this system."
goto explain